<%
Class BaseAction_Home

	Private Sub Class_Initialize()
		On Error Resume Next
		'-- 视图设置
		App.View.Locate = False
		'App.View.LayerOut = False
		'App.View.Theme = "default"
		App.View.LayerFile = "layout.html" '设置layerout模板
		Base.LoadCfg() '加载站点配置
		On Error Goto 0
	End Sub

	Private Sub Class_Terminate()
		'..
	End Sub

    Public Sub index()
		AB.C.Print "缺省模块 缺省Action"
    End Sub

    Public Sub [empty]()
		AB.C.Print "缺省模块 Empty Action"
    End Sub

End Class
%>